// -------------------------------------------------------- // epílogo 1 // // conclusión... // -------------------------------------------------------- Sub Epilogo1() Declare(i) PulsaTecla() ScreenCls(0) //--- HablaPSI("¡Buenos días Xzira!, veo que esta noche ha habido diversión ¿eh?","dijo el guerrero mientras daba un codazo de complicidad y guiñaba el ojo a su compañero.") //--- HablaPSI("Déjate de charlas inútiles y recoge tus cosas, tenemos que partir. Si la semielfa está en lo cierto debemos estar muy cerca de la cueva.","dijo el clérigo al tiempo que recogía un petate de aspecto bastante pesado.") //--- HablaPSI("Ya sabes Groc, las semielfas tenemos nuestro encanto.","") //--- HablaPSI("Sí Xzira, estoy convencido de que me gustaría disfrutar de tus 'encantos'.","el guerrero terminó de ajustarse la cota de malla soltando una sonora carcajada.") //--- Print("Aquel día, un grupo de aventureros entró a una cueva. Los rumores de la región") //--- Print(" decían que en aquella cueva había riquezas sin fin. También se rumoreaba que un") //--- Print(" Contemplador guardaba esos tesoros. De hecho esta era la razón que tres de los") //--- Print(" seis integrantes del grupo de aventureros fuesen magos. Había que combatir a los") //--- Print(" Contempladores en su mismo terreno, la magia. Los Contempladores solían ser") //--- Print(" terroríficos monstruos provistos de infinidad de ojos los cuales podían expeler") //--- Print(" los más atroces artificios mágicos." + CR + CR) //--- Print("Cinco murieron. En cambio uno de los aventureros consiguió sobrevivir, una") //--- Print(" semielfa de voluptuosas curvas a la que parecieron no afectarle en absoluto los") //--- Print(" rayos mágicos del Contemplador, que sí laceraron los indefensos cuerpos de sus") //--- Print(" compañeros. Se diría que aquellos desdichados sólo habían servido como mera") //--- Print(" distracción para semejante monstruo." + CR + CR) //--- Print("Lo más curioso es que, al final, una simple daga, que la semielfa") //--- Print(" solía llevar sujeta en una de sus caderas, era todo lo que sobresalía del ojo") //--- Print(" central del cuerpo inherte del Contemplador. Un ataque tan simple había") //--- Print(" conseguido acabar con la vida de tan terrible monstruo." + CR + CR) //--- Print("Aquel mismo día una camarera de la taberna \[N]\"Fuego de Dragón\"\[N] encontró un") //--- Print(" esqueleto humano, al parecer de un hombre alto, en una de las habitaciones. Lo") //--- Print(" más extraño de todo es que el esqueleto estaba limpio, sin rastros de carne o de") //--- Print(" sangre. En la habitación todavía flotaba el olor de un suave perfume, como una") //--- Print(" nube invisible." + CR + CR) //--- Print("El mago local acudió presuroso. Encontró un trozo de pergamino todavía humeante") //--- Print(" cerca de la cama. Los ojos se le abrieron como platos cuando vió el pergamino.") //--- Print(" En lo que quedaba de él se adivinaban los símbolos cabalísticos correspondientes") //--- Print(" a uno de los encantamientos más potentes conocidos. Un escudo de inmunidad ante") //--- Print(" cualquier tipo de ataque. Un hechizo que sólo ciertos magos se atrevían a") //--- Print(" realizar ya que requería un sacrificio, la víctima era despojada de toda su") //--- Print(" esencia vital que el mago absorbía para canalizar el conjuro." + CR + CR) //--- Print("El esqueleto fue sacado con rapidez de la taberna y enterrado en una fosa a las") //--- Print(" afueras de la ciudad. Nadie sabía nada de la procedencia de ese esqueleto ni") //--- Print(" nadie quiso hacer demasiadas preguntas pero durante días se comentó, para") //--- Print(" asombro de los forasteros, que el esqueleto había sido hallado con la mandíbula") //--- Print(" desencajada en una expresión que bien podría ser una sonrisa de satisfacción") //--- Print(" suprema, como sí hubiese sentido un placer sin límites en el momento de ser") //--- Print(" despojado de su vida." + CR + CR) Print(CR + "\[N]Nueve meses después\[N], en un cueva en las profundidades de un bosque." + CR) HablaPSI("AAAAHHHHHH...","") HablaPSI("Tranquila pequeña Xzira... respira como te dije y te dolerá menos.","la vieja matrona sujeta algo de entre las piernas de Xzira.") Print("Xzira, la semielfa, suda y gime tumbada sobre un viejo catre de madera mientras la matrona le asiste el parto." + CR) HablaPSI("AIEEEE... AAHHHH... es... to... due... le... matrona...","Xzira pronuncia entre jadeos debido al esfuerzo.") HablaPSI("Sí pequeña. Es dolor. Un dulce dolor. El dolor de la vida.","la matrona enjuaga la sangre con un paño húmedo y sigue tirando de la cabeza del bebé que ya asoma.") HablaPSI("AAAAHHHH... por todos... los... dioses...","el rostro de Xzira muestra una expresión de dolor y alegría al mismo tiempo.") Print("El bebé ya presenta casi medio cuerpo fuera. La matrona sujeta la pequeña cabecita rematada de unas orejas puntiagudas y tira hábilemente.") Print(" Pronto todo ha pasado y la respiración de Xzira se normaliza. La matrona limpia al bebé y lo arropa en una suave manta." + CR) HablaPSI("¡Dios mio!, ¡es un elfo!...","la matrona mira al bebé, que ahora llora, con una expresión de sorpresa.") HablaPSI("¿Qué esperabas madre?. ¿Un ogrito?. ¡Déjame verlo!","Xzira sonríe mientras la matrona le acerca el bebé.") Print("La expresión de Xzira es ahora la asombrada. El bebé es un elfo... un elfo auténtico. Algo que sólo pasaba una vez entre mil ya que las mujeres") Print(" semielfas solían dar a luz a hijos humanos." + CR) HablaPSI("Madre... es tan... tan...","") HablaPSI("¿Pequeño?... sí mi pequeña, sí... como tú.","la vieja matrona observa a madre e hijo con ojos gozosos.") PulsaTecla() ScreenCls(0) Print(CR + "\[N]Quince años más tarde\[N] en el mismo bosque." + CR + CR) Print("El joven elfito observa como el torpe aventurero se mueve ruidosamente por entre los árboles.") Print(" Varias veces dirige el aventurero su mirada hacia el elfito, que lo observa a pocos metros de distancia, pero en") Print(" ninguna ocasión logra verle. El elfito, como todos los de su raza, tiene unas habilidades innatas para ocultarse en los bosques." + CR) Print("El elfito sigue al aventurero durante un largo trecho mientras se interna más en lo profundo del bosque." + CR) HablaPSI("¿Quién anda ahí?. Te he visto. ¡Sal de ahí si no quieres que te haga daño!.","") Print("Al elfito, sorprendido, se le hiela por un momento la sangre en las venas. ¿Cómo es posible que este torpe aventurero le haya visto?.") Print(" Quizá no es tan torpe después de todo." + CR) HablaPSI("No me haga daño señor.","el elfito sale de entre la maleza y se pone a la vista del aventurero.") HablaPSI("Vaya... vaya... un elfito. ¿Qué haces por aquí sólo?. ¿No sabes que es peligroso?.","") HablaPSI("Me he perdido señor. Quiero volver a casa... a la cueva.","el elfito mira al aventurero con ojos de esperanza.") HablaPSI("Tranquilo muchacho, creo que te puedo ayudar ya que ahora mismo iba hacia esa cueva. Acompáñame y no te separes de mí.","el confiado aventurero sigue su camino.") Print("Al cabo de un rato el elfito y el aventurero llegan a la entrada de una cueva. Una verja de hierro cerrada con un candado impide la entrada.") Print(" El elfito observa como el aventurero saca una llave y abre el candado sin ningún problema. ¿Cómo habría obtenido una llave de su casa este tipo?; se lo tendría") Print(" que decir a madre. Madre haría algo al respecto ya que a ella no le gustaban las visitas, ¡y menos de sucios aventureros!. Los odiaba." + CR) HablaPSI("¡Adios señor! y... ¡gracias!","el elfito se despide rápidamente del aventurero y desaparece corriendo en la oscuridad del túnel que se interna hacia lo profundo de la cueva.") HablaPSI("¡Oye!... ¡vaya! ha desaparecido. Supongo que los elfos no tienen problemas al moverse entre la oscuridad. Además, quizá esta cueva no sea tan peligrosa como dicen si ese elfito vive ahí dentro.","") Print("El aventurero enciende tranquilamente su linterna y se introduce en la cueva. Poco después de que se haya alejado unos pocos metros de la entrada la verja se cierra... como por arte de magia.") Print(" El olor de un suave perfume inunda la cueva por un instante, como una nube invisible." + CR + CR) PulsaTecla() ScreenCls(0) ScreenImg(0,"#2") For i:=1 To 15 Print() Next Fin() Return // -------------------------------------------------------- // epílogo 2 // // el jugador ataca a Xzira, esta lo inmoviliza y se larga (epilogo 5) // -------------------------------------------------------- Sub Epilogo2() PulsaTecla() ScreenCls(0) Print("Con fuerza lanzas un puñetazo contra Xzira. Notas como tu puño choca contra una invisible barrera." + CR) HablaPSI("¿Qué haces?... ¿te gusta el juego duro acaso?... ¡maldito cabrón!", "exclama Xzira visiblemente sorprendida.") Print("Antes de que puedas reaccionar Xzira hace un gesto y pronuncia una palabra. Hueles como te envuelve un suave perfume, como una nube.") Print(" Sientes al instante unos calambres que paralizan tus extremidades y comprendes que eres presa de un hechizo. Intentas forcejear pero no consigues nada." + CR) //--- HablaPSI("¿Así que prefieres ponérmelo difícil?, da igual, sólo necesito una cosa de tí... tu esencia vital.","la semielfa te mira con una sonrisa malévola en la cara.") //--- If PSI["XZIRA"].Vestido Then //--- Print(" De algún sitio entre sus ropas, la semielfa saca un pergamino que comienza a leer en voz alta." + CR) //--- Else //--- Print("Aún desnuda, busca entre sus cosas que reposan sobre el suelo de la habitación.") //--- Print(" Observas como saca un pergamino que comienza a leer en voz alta, como susurrando." + CR) //--- Endif //--- HablaPSI("Yo lo hubiese hecho sin que sufrieses ningún dolor, sólo placer. Pero tú has elegido esto. Ahora retuércete de dolor y sufre una lenta agonía.","") //--- Print("Descargas de dolor inundan tu ser mientras la vida escapa de tu cuerpo. Mantienes la consciencia el tiempo suficiente como para ver") //--- Print(" como tu carne comienza a desintegrarse y fluir como vapor hacia el cuerpo ahora rígido de la semielfa que sigue entonando unos extraños cánticos." + CR + CR) //--- Print("Pronto todo es oscuridad..." + CR + CR) PulsaTecla() Epilogo5() Return // -------------------------------------------------------- // epílogo 3 // // el jugador sale de la habitación // -------------------------------------------------------- Sub Epilogo3() Declare(opc) HablaPSI("¿A dónde vas hombretón?... ¡vaya yo creí que te gustaría pasar la noche conmigo!","Xzira te mira con el ceño fruncido, como una niña a la que le hayan quitado su juguete preferido.") opc:=Input("¿Quieres salir de la habitación? ") If Ucase(Left(opc,1))="S" Then ScreenCls(0) Print("Decides que tienes mejores cosas que hacer que pasar la noche con esta semielfa. Además tampoco te atrae tanto...") If Not(PSI[PSIJugador].Vestido) Then Print(" Recoges tus ropas y tus cosas y te vistes mientras Xzira te mira malhumorada.") EndIf If Not(OBJ["PUERTA"].Abierto) Then Print(" Abres la puerta.") EndIf Print(" Sales de la habitación y con decisión cierras la puerta tras de tí." + CR) HablaPSI("¡No te creas que eres el único hombre de esta ciudad!","te grita la semielfa desde el otro lado de la puerta.") Fin() Else Print("Te lo piensas mejor y decides que no es mala idea pasar esta noche entre los brazos de una ardiente semielfa." + CR) EndIf Return // -------------------------------------------------------- // epílogo 4 // // el jugador se emborracha y Xzira se larga (epilogo 5) // -------------------------------------------------------- Sub Epilogo4() PulsaTecla() ScreenCls(0) Print("Intentas despejar la niebla que empaña tu visión. Notas como tus brazos y piernas se debilitan y,") Print(" con una sonrisa tonta, caes al suelo al tiempo que pronuncias unas palabras ininteligibles.") Print(" Parece como si tuvieses le lengua pegada al paladar." + CR) //--- HablaPSI("Vaya... esto facilitará las cosas...","oyes entre la bruma como Xzira pronuncia estas palabras.") //--- Print("Este es el último pensamiento lúcido que tienes ya que al instante pierdes la consciencia, sumiéndote en") //--- Print(" un profundo sueño etílico..." + CR + CR) PulsaTecla() Epilogo5() Return // -------------------------------------------------------- // epílogo 5 // // Xzira se aburre y se va // -------------------------------------------------------- Sub Epilogo5() PulsaTecla() ScreenCls(0) If Not(PSI["XZIRA"].Vestido) Then Print("Xzira recoge sus ropas y se viste rápidamente." + CR) EndIf HablaPSI("Vaya, tendré que ir a buscar diversión a otra parte. Me confundí contigo 'hombretón', hubiese sido maravilloso pero...","la semielfa parece frustrada y ligeramente enfadada.") Print("Xzira sale de la habitación y cierra la puerta de golpe. Te quedas sólo.") Print(" Esta noche tendrás que conformarte con la calidez de la cama... vacía." + CR) Fin() Return // incrementa el líbido del PSI // recibe: // psi PSI al que nos referimos // min mínimo que tiene que tener el líbido para incrementarlo // max máximo que se puede alcanzar con este incremento // valor valor a incrementar Sub AumentaLibidoPSI(psi,min,max,valor) If PSI[psi].Libidomax Then PSI[psi].Libido:=max EndIf EndIf Return // disminuye el líbido del PSI // recibe: // psi PSI al que nos referimos // valor valor a incrementar Sub DisminuyeLibidoPSI(psi,valor) PSI[psi].Libido:=PSI[psi].Libido-valor If PSI[psi].Libido<0 Then PSI[psi].Libido:=0 EndIf Return // fin de la aventura Sub Fin() Print(CR + CR + "\[16]\[N]\[C] FIN\[C]\[N]" + tipo_letra + CR + CR) Abandonar() Return